home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / bluebery.arc / LABELPRO.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-06-29  |  21.6 KB  |  345 lines
  1. 5  CLS:KEY OFF:SCREEN 0,0,0:WIDTH 80:CLEAR:FOR I=1 TO 10:KEY I,"":NEXT:KEY 2,"GOTO 60"+CHR$(13):KEY 10,"RUN"+CHR$(34)+"BLUEMENU"+CHR$(34)+CHR$(13):LIST 10-57
  2. 10  REM ***** ADDITIONAL DOCUMENTATION UNDER BLUEBERY.DOC IN DOS **********
  3. 11  'KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE
  4. 13  'OPEN     *** LABELPRO.BAS (No Color)--MONOCHROME FOR THE IBM PC ***     OPEN
  5. 14  'OPEN                                                                    OPEN
  6. 15  'OPEN    This is a bonus program for BLUEBERRY PIE A La Mode Buyers.     OPEN
  7. 17  'OPEN  It is a combination LABEL, NOTE BOOK, "what have you", record and OPEN
  8. 19  'OPEN  filing system.  It will print out 5 line labels on the EPSON or   OPEN
  9. 21  'OPEN  GEMINI printer.  The 6th line is held in file but not printed.    OPEN
  10. 23  'OPEN  A BASIC programmer can alter this feature easily. NOTE-NOTE-NOTE  OPEN
  11. 24  'OPEN  When asked for the LABEL RANGE in the print routine, ENTER first  OPEN
  12. 25  'OPEN  file # and wait, the on prompt, enter second number. If you want  OPEN
  13. 26  'OPEN  only a single FILE label, enter the same FILE number each time.   OPEN
  14. 27  'OPEN  The format is INKEY$ protected. You need not use the <ENTER> KEY. OPEN
  15. 28  'OPEN  An expanded, commented version is on the 320K disk as BLUEBERY.   OPEN
  16. 29  'OPEN  BAS. It also has inert COLOR STATEMENTS and has been modified for OPEN
  17. 30  'OPEN  demonstration purposes as a 6 line DATA-FILE and LABEL program.   OPEN
  18. 32  'OPEN  The color statements in both BLUEBERY.BAS and LABELPRO.BAS can be OPEN
  19. 33  'OPEN  activated easily by any programmer. Color 7,0 statements are in-  OPEN
  20. 34  'OPEN  cluded so that COLORS can be selectively called. See BLUEBERY.DOC OPEN
  21. 35  'OPEN  DOC and BLUEBRY2.DOC for more information.                        OPEN          OPEN                (c)  G I N A C O  -- 1963               Ver 5.2/320 OPEN          SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD
  22. 55  '        *****  < F2 > to RUN  *******  < F10 > For BLUEMENU  *****
  23. 57  ' ====== To avoid DOCUMENTATION BOX each time, REM or DELETE  line 5 ======
  24. 60  FOR I=1 TO 10:KEY I,"":NEXT
  25. 100  SCREEN 0,1,0,0:LOCATE 1,1,0,12,13:A$="":B$="":C$="":D$="":E$="":F$="":DEFINT A-Z:I=0:DIM A$(200),B$(200),C$(200),D$(200),E$(200),F$(200),INPTR$(50),FIN$(50),AA$(200):FINLEN=0:P!=0:IN$="":ON ERROR GOTO 9000
  26. 110  CLS:KEY OFF:BB$=TIME$:GOSUB 500:GOSUB 320:GOTO 150
  27. 150  GOSUB760:DEFSEG=&H40:A!=PEEK(&H8):B!=PEEK(&H9):C!=PEEK(&HA):D!=PEEK(&HB):POKE&H8,C!:POKE&H9,D!:POKE&HA,A!:POKE&HB,B!:IFPEEK(&H9)=3THENLPT$="1"ELSELPT$="2
  28. 160  LOCATE 7,30,0:COLOR 7,0:PRINT"Primary Printer = LPT";LPT$+":":COLOR 7,0:LOCATE 9,24:PRINT"To continue with program <PRESS> 1":LOCATE 11,24,0:PRINT"Reset LPT1 OR LPT2       <PRESS> 2";" ";:GOSUB 1020:ON VAL(IN$)GOTO 190,150
  29. 170  GOSUB760:DEFSEG=&H40:A!=PEEK(&H8):B!=PEEK(&H9):C!=PEEK(&HA):D!=PEEK(&HB):POKE&H8,C!:POKE&H9,D!:POKE&HA,A!:POKE&HB,B!:IFPEEK(&H9)=3THENLPT$="1"ELSELPT$="2
  30. 180  LOCATE 7,30,0:COLOR 7,0:PRINT"Primary Printer = LPT";LPT$+":":COLOR 7,0:LOCATE 9,24:PRINT"To continue with program <PRESS> 1":LOCATE 11,24,0:PRINT"Reset LPT1 OR LPT2       <PRESS> 2";" ";:GOSUB 1020:ON VAL(IN$)GOTO 860,170
  31. 190  CLS:GOSUB 350:GOSUB 850:GOSUB 390:GOTO 4610
  32. 200  REM =====  EMERGENCY REPAIR =====
  33. 210  CLS:GOSUB 350:GOSUB 850:GOTO 860
  34. 300  REM =====  PROGRAM FOR BOX PRINTOUT =======
  35. 310  CLS:GOSUB340:GOTO4500
  36. 320  REM =====  LPT1&2 SELECT ROUTINE ==========
  37. 330  COLOR 7,0:WW=76:TL=5:LL=13:LC=2:LOCATE TL,LC,0,0,7:PRINT TLC$;STRING$(WW,HL$);TRC$;:FOR I=(TL+1)TO(LL-1):LOCATE I,LC,0:PRINT VL$;:LOCATE I,(LC+WW+1),0:PRINT VL$;:NEXT:LOCATE LL,LC,0:PRINT BLC$;STRING$(WW,HL$);BRC$;:COLOR 7,0:RETURN
  38. 340  REM =====  PRINT BOX 1 =====
  39. 350  COLOR 7,0:WW=76:TL=1:LL=24:LC=2:LOCATE TL,LC,0:PRINT TLC$;STRING$(WW,HL$);TRC$;:FOR I=(TL+1)TO(LL-1):LOCATE I,LC,0:PRINT VL$;:LOCATE I,(LC+WW+1),0:PRINT VL$;:NEXT:LOCATE LL,LC,0:PRINT BLC$;STRING$(WW,HL$);BRC$;:COLOR 7,0:RETURN
  40. 360  REM =====  PRINT BOX 2 =====
  41. 370  WW=69:TL=18:LL=23:LC=6:LOCATE TL,LC,0:PRINT TLC$;STRING$(WW,HL$);TRC$;:FOR I=(TL+1)TO(LL-1):LOCATE I,LC,0:PRINT VL$;:LOCATE I,(LC+WW+1),0:PRINT VL$;:NEXT:LOCATE LL,LC,0:PRINT BLC$;STRING$(WW,HL$);BRC$;:RETURN
  42. 380  REM =====  PRINT BOX 3 =====
  43. 390  WW=23:TL=20:LL=22:LC=50:LOCATETL,LC,0:PRINTTLC$;STRING$(WW,HL$);TRC$;:FORI=(TL+1)TO(LL-1):LOCATEI,LC,0:PRINTVL$;:LOCATEI,(LC+WW+1),0:PRINTVL$;:NEXT:LOCATELL,LC,0:PRINTBLC$;STRING$(WW,HL$);BRC$:RETURN
  44. 500  REM =====  INITIALIZATION ROUTINE =====
  45. 510  TLC$=CHR$(201):TRC$=CHR$(187):HL$=CHR$(205):BLC$=CHR$(200):BRC$=CHR$(188):VL$=CHR$(186):PR$="\                                 \     \                     \
  46. 520  M1ST$="A THENTHEN"+CHR$(16)+" Add  Records   C THENTHEN"+CHR$(16)+" Choose Printer   D THENTHEN"+CHR$(16)+" Disk Directories":
  47. 522  M2ND$="E THENTHEN"+CHR$(16)+" Edit Records   L THENTHEN"+CHR$(16)+" Load Disk File   P THENTHEN"+CHR$(16)+" Print Label Menu":
  48. 524  M3RD$="Q THENTHEN"+CHR$(16)+" Quit Program   R THENTHEN"+CHR$(16)+" Review Records   S THENTHEN"+CHR$(16)+" Save (Disk File)":
  49. 700  REM =====  ZIPCLEAR INPUT ROUTINES =====
  50. 710  DIMA(22):FORI=0TO21:READA(I):NEXT:DATA&h8B55:DATA&hB8EC:DATA&H0600:DATA&H07B7:DATA&H768B:DATA&H8A0C:DATA&H8B2C:DATA&HA76:DATA&HC8A:DATA&H768B:DATA&H8A08:DATA&H8B34:DATA&H676:DATA&H148A:DATA&HCDFE:DATA&HC9FE:DATA&HCEFE:DATA&HCAFE:DATA&H10CD
  51. 720  DATA&HCA5D:DATA&H8:DATA&H0:RETURN
  52. 730  REM =====  CLEAR LPT1&2 SELECT BOX =====
  53. 740  REM =====  R1%=UP.LEFT.ROW% :C1%=UP.LEFT COL% =====
  54. 750  REM =====  R2%=LOW.LEFT.ROW%:C2%=RIGHT.COL% =====
  55. 760  REM =====  CLEAR LPT1&2 SELECT BOX =====
  56. 770  R1=6:C1=3:R2=12:C2=76:DEFSEG:SUBRT=VARPTR(A(0)):CALLSUBRT(R1,C1,R2,C2):RETURN
  57. 780  REM =====  CLEAR TOP BOX FORM =====
  58. 790  R1=2:C1=3:R2=17:C2=78:DEF SEG:SUBRT=VARPTR(A(0)):CALL SUBRT(R1,C1,R2,C2):RETURN
  59. 800  REM =====  CLEAR UPPER 1/2 SCREEN FOR DIRECTORY =====
  60. 810  R1=1:C1=1:R2=17:C2=80:DEF SEG:SUBRT=VARPTR(A(0)):CALL SUBRT(R1,C1,R2,C2):LOCATE 18,2:PRINT"KEY";STRING$(76,"THEN");"CLOSE";:RETURN
  61. 820  REM =====  CLEAR BOTTOM BOX FORM =====
  62. 830  R1=19:C1=3:R2=23:C2=49:DEF SEG:SUBRT=VARPTR(A(0)):CALL SUBRT(R1,C1,R2,C2):RETURN
  63. 840  R1=19:C1=3:R2=23:C2=78:DEF SEG:SUBRT=VARPTR(A(0)):CALL SUBRT(R1,C1,R2,C2):RETURN
  64. 850  LOCATE 18,2,0:PRINT"TO";STRING$(76,"THEN");"RANDOMIZE";:RETURN
  65. 860  REM =====  QUERY CLEAR AND RETURN ROUTINE =====
  66. 870  GOSUB 11000:GOSUB 790:GOSUB 340:GOSUB 16000:ON MS GOTO 10010,170,15100,5210,4010,6010,7050,4520,3010
  67. 880  REM =====  FULL BOX FORM =====
  68. 890  R1=2:C1=3:R2=18:C2=78:DEFSEG:SUBRT=VARPTR(A(0)):CALLSUBRT(R1,C1,R2,C2):RETURN
  69. 900  REM =====  INSERT AND BOTTOM BOXES =====
  70. 910  LOCATE 21,52,0:PRINT SPC(22);:COLOR 7,0:RETURN
  71. 920  LOCATE 21,10,0:PRINT SPC(39);:COLOR 7,0:RETURN
  72. 930  REM =====  "SELECT" SUBROUTINE  =====
  73. 940  LOCATE 21,51,0:PRINT SPC(21);:COLOR 7,0:LOCATE 21,76:COLOR 7,0:LOCATE 21,53:PRINT"SELECT ";:COLOR 7,0:RETURN
  74. 950  LOCATE21,52,0:PRINTSPC(21);:COLOR7,0:LOCATE21,76:RETURN
  75. 1000  REM =====  END Of FORM GENERATION GO TO FORM INPUT TEXT =====
  76. 1010  IF INKEY$><""GOTO 1010
  77. 1020  IN$=INKEY$:IFIN$=""THEN1020
  78. 1030  IFASC(IN$)<49ORASC(IN$)>50THENSOUND400,4:GOTO1020
  79. 1040  RETURN
  80. 1050  IFINKEY$><""GOTO1050
  81. 1060  IN$=INKEY$:IFIN$=""THEN1060
  82. 1070  IFASC(IN$)<49ORASC(IN$)>51THENSOUND400,4:GOTO1060
  83. 1080  RETURN
  84. 1090  IFINKEY$><""GOTO1090
  85. 1100  IN$=INKEY$:IFIN$=""THEN1100
  86. 1110  IFASC(IN$)<49ORASC(IN$)>52THENSOUND400,4:GOTO1100
  87. 1120  RETURN
  88. 1130  IFINKEY$><""GOTO1130
  89. 1140  IN$=INKEY$:IFIN$=""THEN1140
  90. 1150  IFASC(IN$)<49ORASC(IN$)>53THENSOUND400,4:GOTO1140
  91. 1160  RETURN
  92. 1170  IFINKEY$><""GOTO1170
  93. 1180  IN$=INKEY$:IFIN$=""THEN1180
  94. 1190  IFASC(IN$)<49ORASC(IN$)>54THENSOUND400,4:GOTO1180
  95. 1200  RETURN
  96. 1210  IFINKEY$><""GOTO1210
  97. 1220  IN$=INKEY$:IFIN$=""THEN1220
  98. 1230  IFASC(IN$)<49ORASC(IN$)>56THENSOUND400,4:GOTO1220
  99. 1240  RETURN
  100. 1250  IFINKEY$><""GOTO1250
  101. 1260  IN$=INKEY$:IFIN$=""THEN1260
  102. 1270  IFASC(IN$)<49ORVAL(IN$)>200THENSOUND400,4:GOTO1260
  103. 1280  RETURN
  104. 1290  IN$=INKEY$:IFIN$=""THEN1290
  105. 1300  YN=0:IF(IN$="Y"ORIN$="y")THENYN=1:RETURN
  106. 1310  IF(IN$="N"ORIN$="n")THENYN=2:RETURN
  107. 1320  SOUND400,4:GOTO1290
  108. 1330  IFINKEY$><""GOTO1330
  109. 1340  IN$=INKEY$:IFIN$=""THEN1340
  110. 1350  IFIN$<>CHR$(13)THENSOUND400,4:GOTO1340
  111. 1360  RETURN
  112. 1370  IN$=INKEY$:IFIN$=""THEN1370
  113. 1380  IF(IN$=CHR$(65)ORIN$=CHR$(97))THENPD=1:RETURN
  114. 1390  IF(IN$=CHR$(66)ORIN$=CHR$(98))THENPD=2:RETURN
  115. 1400  IF(IN$=CHR$(67)ORIN$=CHR$(99))THENPD=3:RETURN
  116. 1410  IF(IN$=CHR$(68)ORIN$=CHR$(100))THENPD=4:RETURN
  117. 1420  SOUND400,4:GOTO1370
  118. 2000  REM =====  INPUT ROUTINE FOR LETTER RESPONSES =====
  119. 2010  FIN$="":IFFINLEN=0THENFINLEN=255
  120. 2020  IFINKEY$><""THEN2020
  121. 2030  INPTR$=INKEY$:IFINPTR$=""THEN2030
  122. 2040  IFINPTR$=CHR$(13)THENRETURN
  123. 2050  IFINPTR$<>CHR$(8)THEN2080
  124. 2060  IFFIN$=""THENSOUND600,4:GOTO2030
  125. 2070  PRINTCHR$(29);"<UNK! {FE22}>;CHR$(29);:FIN$=LEFT$((FIN$),LEN(FIN$)-1):GOTO2030
  126. 2080  IFLEN(FIN$)=FINLENTHENSOUND600,4:GOTO2030
  127. 2090  IFASC(INPTR$)<31ORASC(INPTR$)>125THENSOUND400,4:GOTO2030
  128. 2100  PRINTINPTR$;:FIN$=FIN$+INPTR$:GOTO2030
  129. 2110  END
  130. 2500  REM =====  INITIAL FILE OR SINGLE LABEL INPUT PROGRAM  =====
  131. 2510  GOSUB 780:GOSUB 820:COLOR 7,0:LOCATE 21,30,0:PRINT"Make DATA Entries ";:LOCATE 17,20:PRINT"Do not use QUOTATION MARKS when entering data!";:COLOR 7,0:GOSUB 5170:P!=200:FOR I!=1 TO 200:COLOR 6,0:GOSUB 5180:COLOR 7,0:COLOR 7,0:GOSUB 910
  132. 2520  LOCATE 21,52,0:PRINT"Record #:";:LOCATE 21,64,0:PRINT I!;:LOCATE 4,30,1,0,7:FINLEN=41:GOSUB 2000:A$(I!)=FIN$:COLOR 7,0:LOCATE 4,30,0:PRINT A$(I!):IF(A$(I!)="END"OR A$(I!)="end")THEN P!=I!
  133. 2530  IF(A$(I!)="END"OR A$(I!)="end")THEN 2600
  134. 2540  LOCATE 6,30,1:FINLEN=41:GOSUB 2000:B$(I!)=FIN$:COLOR 7,0:LOCATE 6,30,0:PRINT B$(I!);:LOCATE 8,30,1:FINLEN=41:GOSUB 2000:C$(I!)=FIN$:COLOR 7,0:LOCATE 8,30,0:PRINT C$(I!);:LOCATE 10,30,1:FINLEN=41:GOSUB 2000:D$(I!)=FIN$:COLOR 7,0:LOCATE 10,30,0
  135. 2550  PRINT D$(I!);:LOCATE 12,30,1:FINLEN=41:GOSUB 2000:E$(I!)=FIN$:COLOR 7,0:LOCATE 12,30,0:PRINT E$(I!);:LOCATE 14,30,1:FINLEN=41:GOSUB 2000:F$(I!)=FIN$:COLOR 7,0:LOCATE 14,30,0:PRINT F$(I!);
  136. 2560  GOSUB 820:LOCATE 21,20,0:COLOR 7,0:PRINT"Is this correct <Y/N> ";:COLOR 7,0:GOSUB 1290:IF YN=1 THEN 2590
  137. 2570  IFYN=2THEN2580
  138. 2580  GOSUB 820:GOSUB 910:GOSUB 920:LOCATE 21,18:COLOR 7,0:PRINT"Re-enter what line? ";:COLOR 7,0:LOCATE 21,55:PRINT" Line # ";:GOSUB 1170:LOCATE 21,64:PRINT VAL(IN$);:ON VAL(IN$)GOTO 5020,5030,5040,5050,5060,5070
  139. 2590  GOSUB 820:LOCATE 21,18:COLOR 7,0:PRINT"ENTER ";:COLOR 7:PRINT CHR$(34)"END"CHR$(34);:COLOR 7:PRINT" To CLOSE entries ";:NEXT:NEXT:LOCATE 21,18:COLOR 7,0:PRINT SPC(30):;PRINT"To Store on DISK   <PRESS> 2";:COLOR 7,0
  140. 2600  GOSUB 820:COLOR 7,0:LOCATE 21,20:PRINT"SAVE to DISK <Y/N> ";:COLOR 7,0:GOSUB 1290:IF YN=1 THEN 3000
  141. 2610  IF YN=2 THEN 4500
  142. 3000  REM =====  DATA SAVE ROUTINE TO DISK  =====
  143. 3010  GOSUB 840:GOSUB 390:COLOR 7,0:LOCATE 21,27,0:PRINT"What is FILE name? ";:GOSUB 950:FINLEN=14:LOCATE 21,52:COLOR 7,0:PRINT"DRIVE? <UNK! {FE3A}><UNK! {FEFE}><UNK! {FEFE}><UNK! {FEFE}><UNK! {FEFE}>.<UNK! {FEFE}><UNK! {FE22}>;:LOCATE 21,59,0:COLOR 7,0:GOSUB 2000:FILESPEC$=FIN$:COLOR 7,0:GOSUB 920:OPEN "O",1,FILESPEC$
  144. 3020  WRITE#1,P!:FOR I!=1 TO P!:WRITE#1,A$(I!),B$(I!),C$(I!),D$(I!),E$(I!),F$(I!):IF(A$(I!)="END"OR A$(I!)="end")THEN P!=I!
  145. 3030  IF(A$(I!)="END"ORA$(I!)="end")THEN3050
  146. 3040  NEXT
  147. 3050  CLOSE:GOSUB11000:GOTO4500
  148. 4000  REM =====  DISK DATA READ ROUTINE  =====
  149. 4010  GOSUB 840:GOSUB 390:LOCATE 21,27:COLOR 7,0:PRINT"What is FILE name? ";:GOSUB 950:FINLEN=14:LOCATE 21,52:COLOR 7,0:PRINT"DRIVE? <UNK! {FE3A}><UNK! {FEFE}><UNK! {FEFE}><UNK! {FEFE}><UNK! {FEFE}>.<UNK! {FEFE}><UNK! {FE22}>;:LOCATE 21,59,0:COLOR 7,0:GOSUB 2000:FILESPEC$=FIN$:COLOR 7,0:GOSUB 920:OPEN "I",1,FILESPEC$:INPUT#1,P!
  150. 4020  FORI!=1TOP!:INPUT#1,A$(I!),B$(I!),C$(I!),D$(I!),E$(I!),F$(I!):IF(A$(I!)="END"ORA$(I!)="end")THENP!=I!
  151. 4030  IF(A$(I!)="END"ORA$(I!)="END")THEN4050
  152. 4040  NEXT
  153. 4050  CLOSE:GOSUB11000:GOSUB780
  154. 4500  REM =====  CHANCE TO REVIEW NAMES =====
  155. 4510  GOTO 860
  156. 4520  REM =====  STARTING OUTPUT LOOP =====
  157. 4530  GOSUB 780:GOSUB 840:GOSUB 850:K!=1:NR=13
  158. 4540  LOCATE4,7:FORI=K!TOP!:GOTO4550
  159. 4550  LOCATE,7:PRINT I;" ";:PRINT USING PR$;A$(I);B$(I):IF I=NR THEN 4570ELSE 4560
  160. 4560  NEXT
  161. 4570  GOSUB 840:LOCATE 21,30:COLOR 7,0:PRINT"<PRESS> ENTER to Continue!";:COLOR 7,0:GOSUB 1330:IF I=P!THEN 4590
  162. 4580  IFI<P!THENK!=I:NR=NR+13:GOSUB880:GOTO4540
  163. 4590  GOSUB 840:LOCATE 21,30:COLOR 7,0:PRINT"That is the last Record";:FOR I!=1 TO 2000:NEXT:COLOR 7,0:GOTO 860
  164. 4610  GOSUB 820:LOCATE 3,32:COLOR 7,0:PRINT"LABEL/FILE PROGRAM";:COLOR 7,0:LOCATE 4,32:COLOR 7,0:PRINT"THENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHEN";:COLOR 7,0:LOCATE 6,35:COLOR 7,0:PRINT"C H O I C E S";:COLOR 7,0:LOCATE 7,35:COLOR 7,0:PRINT"THENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHEN";:COLOR 7,0:LOCATE 9,25
  165. 4620  COLOR 7,0:PRINT"Recall Disk FILE              1";:COLOR 7,0:LOCATE 11,25:COLOR 7,0:PRINT"Open New FILE                 2";:COLOR 7,0:LOCATE 13,25:COLOR 7,0:PRINT"Make single label             3";:COLOR 7,0:LOCATE 15,25:COLOR 7,0
  166. 4630  PRINT"CONTROL Menu                  4";:COLOR 7,0:LOCATE 21,20:COLOR 7,0:PRINT"Select & <PRESS> a Number";:GOSUB 940:GOSUB 11000:GOSUB 1090:ON VAL(IN$)GOTO 4000,2500,2500,860
  167. 5000  REM =====  INDIVIDUAL LINE CORRECTION ROUTINE  =====
  168. 5010  CLEAR570:FORI=4TO14STEP2:LOCATEI,28:PRINT"  ";STRING$(41,254):NEXT:GOTO5080
  169. 5020  COLOR7,0:LOCATE4,28:PRINT"  ";STRING$(41,254):GOTO5080
  170. 5030  COLOR7,0:LOCATE6,28:PRINT"  ";STRING$(41,254):GOTO5110
  171. 5040  COLOR7,0:LOCATE8,28:PRINT"  ";STRING$(41,254):GOTO5120
  172. 5050  COLOR7,0:LOCATE10,28:PRINT"  ";STRING$(41,254):GOTO5130
  173. 5060  COLOR7,0:LOCATE12,28:PRINT"  ";STRING$(41,254):GOTO5140
  174. 5070  COLOR7,0:LOCATE14,28:PRINT"  ";STRING$(41,254):GOTO5150
  175. 5080  LOCATE 4,30:COLOR 7,0:FINLEN=41:GOSUB 2000:A$(I!)=FIN$:LOCATE 4,30,0:PRINT A$(I!):COLOR 7,0:GOTO 2560
  176. 5090  IF(A$(I!)="END"ORA$(I!)="end")THENP!=I!
  177. 5100  IF(A$(I!)="END"ORA$(I!)="end")THEN2600
  178. 5110  LOCATE 6,30,1:COLOR 7,0:FINLEN=41:GOSUB 2000:B$(I!)=FIN$:LOCATE 6,30,0:PRINT B$(I!):COLOR 7,0:GOTO 2560
  179. 5120  LOCATE 8,30,1:COLOR 7,0:FINLEN=41:GOSUB 2000:C$(I!)=FIN$:LOCATE 8,30,0:PRINT C$(I!):COLOR 7,0:GOTO 2560
  180. 5130  LOCATE 10,30,1:COLOR 7,0:FINLEN=41:GOSUB 2000:D$(I!)=FIN$:LOCATE 10,30,0:PRINT D$(I!):COLOR 7,0:GOTO 2560
  181. 5140  LOCATE 12,30,1:COLOR 7,0:FINLEN=41:GOSUB 2000:E$(I!)=FIN$:LOCATE 12,30,0:PRINT E$(I!):COLOR 7,0:GOTO 2560
  182. 5150  LOCATE 14,30,1:COLOR 7,0:FINLEN=41:GOSUB 2000:F$(I!)=FIN$:LOCATE 14,30,0:PRINT F$(I!):COLOR 7,0:GOTO 2560
  183. 5160  REM =====  LINE COLOR LINE ROUTINE =====
  184. 5170  FOR Q=5 TO 15 STEP 2:LOCATE Q,15:PRINT STRING$(7,205):NEXT:LOCATE 4,15:PRINT"LINE 1: ":LOCATE 6,15:PRINT"LINE 2: ":LOCATE 8,15:PRINT"LINE 3: ":LOCATE 10,15:PRINT"LINE 4: ":LOCATE 12,15:PRINT"LINE 5: ":LOCATE 14,15:PRINT"LINE 6: ":RETURN
  185. 5180  REM =====  COLORS IN INPUT LINES  =====
  186. 5190  LOCATE 2,28:COLOR 7:PRINT"  "STRING$(15,32)CHR$(3):COLOR 7,0:LOCATE 2,22:PRINT"MAX for EXPANDED PRINT":LOCATE 2,47:PRINT"with 4 RENUM inch labels":FOR Q=4 TO 14 STEP 2:COLOR 7,0:LOCATE Q,30:PRINT STRING$(41,254);:COLOR 7,0:NEXT:RETURN
  187. 5200  REM =====  EDIT INDIVIDUAL RECORDS ROUTINE =====
  188. 5210  Z=0
  189. 5220  GOSUB 840:GOSUB 390:COLOR 7,0:LOCATE 20,18:PRINT"What RECORD NUMBER To edit ";:COLOR 7,0:LOCATE 22,18:PRINT"Enter RECORD NUMBER ";:GOSUB 940:GOSUB 1250:Z!=VAL(IN$):GOSUB 11000:IF I=0 THEN 11040:IF(Z!<1 OR Z!>P!)THEN 5220
  190. 5230  REM =====  DISPLAYING RECORDS TO BE EDITED =====
  191. 5240  ON Z!GOSUB 780:GOSUB 5160:GOSUB 5180:GOSUB 910:COLOR 7,0:LOCATE 21,53,0:PRINT"Record #: ":LOCATE 21,65:PRINT Z!:LOCATE 4,30:PRINT A$(Z!):IF A$(1)="END"THEN P!=Z!:COLOR 7,0
  192. 5250  LOCATE 6,30:PRINT B$(Z!):LOCATE 8,30:PRINT C$(Z!):LOCATE 10,30:PRINT D$(Z!):LOCATE 12,30:PRINT E$(Z!):LOCATE 14,30:PRINT F$(Z!)
  193. 5260  GOSUB 820:COLOR 7,0:GOSUB 920:LOCATE 21,20:PRINT"Is this correct <Y/N> ";:GOSUB 1290:IF YN=1 THEN 5450
  194. 5270  IFYN=2THEN5280
  195. 5280  GOSUB 820:GOSUB 910:GOSUB 920:LOCATE 21,18:COLOR 7,0:PRINT"Re-enter what LINE? ";:COLOR 7,0:LOCATE 21,55:PRINT" Line # ";:GOSUB 1170:LOCATE 21,64:PRINT VAL(IN$);:ON VAL(IN$)GOTO 5300,5310,5320,5330,5340,5350
  196. 5290  REM =====  INDIVIDUAL LINE ROUTINE FOR RECALLED RECORDS  =====
  197. 5300  COLOR7,0:LOCATE4,30:PRINTSTRING$(41,254):GOTO5370
  198. 5310  COLOR7,0:LOCATE6,30:PRINTSTRING$(41,254):GOTO5400
  199. 5320  COLOR7,0:LOCATE8,30:PRINTSTRING$(41,254):GOTO5410
  200. 5330  COLOR7,0:LOCATE10,30:PRINTSTRING$(41,254):GOTO5420
  201. 5340  COLOR7,0:LOCATE12,30:PRINTSTRING$(41,254):GOTO5430
  202. 5350  COLOR7,0:LOCATE14,30:PRINTSTRING$(41,254):GOTO5440
  203. 5360  FORQ=4TO14STEP2:LOCATEQ,30,1,0,7:PRINTSTRING$(41,254):NEXT
  204. 5370  LOCATE 4,30,1:COLOR 7,0:FINLEN=41:GOSUB 2000:A$(Z!)=FIN$:LOCATE 4,30,0:PRINT A$(Z!):COLOR 7,0:GOTO 5260
  205. 5380  IF A$(Z!)="END"OR A$(Z!)="end")THEN P!=Z!
  206. 5390  IF A$(Z!)="END"OR A$(Z!)="end")THEN 5460
  207. 5400  LOCATE 6,30,1:COLOR 7,0:FINLEN=41:GOSUB 2000:B$(Z!)=FIN$:LOCATE 6,30,0:PRINT B$(Z!):COLOR 7,0:GOTO 5260
  208. 5410  LOCATE 8,30,1:COLOR 7,0:FINLEN=41:GOSUB 2000:C$(Z!)=FIN$:LOCATE 8,30,0:PRINT C$(Z!):COLOR 7,0:GOSUB 5260
  209. 5420  LOCATE 10,30,1:COLOR 7,0:FINLEN=41:GOSUB 2000:D$(Z!)=FIN$:LOCATE 10,30,0:PRINT D$(Z!):COLOR 7,0:GOTO 5260
  210. 5430  LOCATE 12,30,1:COLOR 7,0:FINLEN=41:GOSUB 2000:E$(Z!)=FIN$:LOCATE 12,30,0:PRINT E$(Z!):COLOR 7,0:GOTO 5260
  211. 5440  LOCATE 14,30,1:COLOR 7,0:FINLEN=41:GOSUB 2000:F$(Z!)=FIN$:LOCATE 14,30,0:PRINT F$(Z!):COLOR 7,0:GOSUB 5260
  212. 5450  REM =====  LOOK AT ANOTHER RECORD AFTER CORRECTION =====
  213. 5460  GOSUB 830:LOCATE 21,18:COLOR 7,0:PRINT"Edit another RECORD <Y/N> ";:GOSUB 1290:ON YN GOTO 5200,860
  214. 6000  REM =====  LABEL PRINT ROUTINES =====
  215. 6010  GOSUB 11000:GOSUB 780:LOCATE 3,32:COLOR 7,0:PRINT"LABEL/FILE PROGRAM":COLOR 7,0:LOCATE 4,32:COLOR 7,0:PRINT"THENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHEN":COLOR 7,0:LOCATE 5,35:COLOR 7,0:PRINT"C H O I C E S":COLOR 7,0:LOCATE 6,35:COLOR 7,0:PRINT"THENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHEN":COLOR 7,0
  216. 6020  LOCATE 8,25:COLOR 7,0:PRINT"1ST Line EXPANDED Print.......1":COLOR 7,0:LOCATE 9,25:COLOR 7,0:PRINT"All lines EXPANDED Print......2":COLOR 7,0:LOCATE 10,25:COLOR 7,0:PRINT"All lines ITALICS.. ..........3":COLOR 7,0:LOCATE 11,25:COLOR 7,0
  217. 6030  PRINT"All lines 10 PITCH............4":COLOR 7,0:LOCATE 12,25:COLOR 7,0:PRINT"All lines COMPRESSED..........5":COLOR 7,0:LOCATE 13,25:COLOR 7,0:PRINT"Return to CONTROL Menu........6":COLOR 7,0:LOCATE 14,25:COLOR 7,0
  218. 6040  PRINT"Disk Directories..............7":LOCATE 15,25:PRINT"QUIT the program..............8";:COLOR 7,0:GOSUB 840:GOSUB 390:LOCATE 21,20:COLOR 7,0:PRINT"Select & <PRESS> a NUMBER ";:GOSUB 940:GOSUB 11000:GOSUB 1210
  219. 6050  ON VAL(IN$)GOTO 6070,6090,6110,6130,6150,860,15000,7040
  220. 6060  GOSUB780:GOTO4500
  221. 6070  REM =====  1ST LINE EXPANDED =====
  222. 6080  GOSUB780:GOSUB6170:GOTO6240
  223. 6090  REM =====  ALL LINES EXPANDED =====
  224. 6100  GOSUB780:GOSUB6170:GOTO6280
  225. 6110  REM =====  ALL LINES ITALICS =====
  226. 6120  GOSUB780:GOSUB6170:GOTO6320
  227. 6130  REM =====  10 PITCH (PICA) =====
  228. 6140  GOSUB780:GOSUB6170:GOTO6360
  229. 6150  REM =====  ALL LINES CONDENSED =====
  230. 6160  GOSUB780:GOSUB6170:GOTO6400
  231. 6170  LOCATE 6,35:COLOR 7,0:PRINT"C H O I C E S":COLOR 7,0:LOCATE 7,35:COLOR 7,0:PRINT"THENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHEN":COLOR 7,0:LOCATE 9,25:COLOR 7,0:PRINT"Check Printer ON and SELECTED.":COLOR 7,0:LOCATE 10,25:COLOR 7,0:PRINT"CHECK LABELS LOADED AND ALIGNED":COLOR 7,0
  232. 6180  LOCATE 11,25:COLOR 7,0:PRINT"Select record RANGE to print":COLOR 7,0:LOCATE 13,25:COLOR 7,0:PRINT"I.E. <PRESS> FIRST Record Number to Print":LOCATE 14,31:PRINT"Then <PRESS> Last Record Number":COLOR 7,0:GOSUB 920:LOCATE 21,20:COLOR 7,0
  233. 6190  PRINT"Select Record Print Range ":LB!=0:LE!=0:GOSUB 910:LOCATE 21,52:COLOR 7,0:PRINT"First # ";:COLOR 7,0:LOCATE 21,60:GOSUB 1250:LB!=VAL(IN$):LOCATE 21,62:PRINT LB!;:FOR I=1 TO 2000:NEXT:GOSUB 910:LOCATE 21,52,0:COLOR 7,0:PRINT"Last #":COLOR 7,0
  234. 6200  GOSUB 11000:GOSUB 1250:LE!=VAL(IN$):LOCATE 21,62:PRINT LE!;:FOR I=1 TO 1000:NEXT:GOSUB 780:LOCATE 6,35:COLOR 7,0:PRINT"PRINT  LABELS":COLOR 7,0:LOCATE 7,35:COLOR 7,0:PRINT"THENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHEN":COLOR 7,0:LOCATE 12,30:COLOR 7,0
  235. 6210  PRINT"How many of each labeL.    ":COLOR 7,0:LOCATE 21,16:COLOR 7,0:PRINT"Indicate QUANTITY of each wanted";
  236. 6220  REM =====  NUMBER OF EACH LABEL =====
  237. 6230  GOSUB 910:LOCATE 21,52:COLOR 7,0:PRINT"# of each";:COLOR 7,0:NL!=0:GOSUB 1210:NL!=VAL(IN$):LOCATE 21,62:PRINT NL!;:FOR I=1 TO 2000:NEXT:GOSUB 11000:RETURN
  238. 6240  REM =====  1ST LINE ONLY EXPANDED/EMPHASIZED PRINT =====
  239. 6250  LPRINT CHR$(27)+"@";:LPRINT CHR$(27)+"E";:FOR M!=1 TO NL!:FOR N!=LB!TO LE!:LPRINT CHR$(14);:LPRINT A$(N!):LPRINT CHR$(20);:LPRINT B$(N!):LPRINT C$(N!):LPRINT D$(N!):LPRINT E$(N!):LPRINT" ":NEXT:NEXT:LPRINT CHR$(27)+"@";:GOSUB 780:GOSUB 820
  240. 6260  LOCATE 20,13:COLOR 7,0:PRINT"To REPRINT This label/s    <PRESS> 1";:LOCATE 21,13:COLOR 7,0:PRINT"To print DIFFERENT label/s <PRESS> 2";:LOCATE 22,13:COLOR 7,0:PRINT"To CONTROL Menu            <PRESS> 3";:GOSUB 940:GOSUB 11000:GOSUB 1050
  241. 6270  NL!=1:ON VAL(IN$)GOTO 6250,6000,860
  242. 6280  REM =====  ALL LINES EXPANDED/EMPHASIZED PRINT  =====
  243. 6290  LPRINT CHR$(27)+"@";:LPRINT CHR$(27)+"E";:FOR N!=LB!TO LE!:FOR M!=1 TO NL!:LPRINT CHR$(14);A$(N!):LPRINT CHR$(14);B$(N!):LPRINT CHR$(14);C$(N!):LPRINT CHR$(14);D$(N!):LPRINT CHR$(14);E$(N!):LPRINT" ":NEXT:NEXT:LPRINT CHR$(27)+"@";:GOSUB 780
  244. 6300  GOSUB 820:LOCATE 20,13:COLOR 7,0:PRINT"To REPRINT this label/s    <PRESS> 1";:LOCATE 21,13:COLOR 7,0:PRINT"To print DIFFERENT label/s <PRESS> 2";:LOCATE 22,13:COLOR 7,0:PRINT"To CONTROL Menu            <PRESS> 3";:GOSUB 940:GOSUB 11000:GOSUB 1050
  245. 6310  NL!=1:ON VAL(IN$)GOTO 6290,6000,860
  246. 6320  REM =====  ALL LINES ITACICS/EMPHASIZED  =====
  247. 6330  LPRINTCHR$(27)+"@";:LPRINTCHR$(27);CHR$(69);:LPRINTCHR$(27)+CHR$(52);:FORM!=1TONL!:FORN!=LB!TOLE!:LPRINTA$(N!):LPRINTB$(N!):LPRINTC$(N!):LPRINTD$(N!):LPRINTE$(N!):LPRINT" ":NEXT:NEXT:LPRINTCHR$(27)+"@";:GOSUB780:GOSUB820
  248. 6340  LOCATE 20,13:COLOR 7,0:PRINT"To REPRINT this label/s    <PRESS> 1";:LOCATE 21,13:COLOR 7,0:PRINT"To print DIFFERENT label/s <PRESS> 2";:LOCATE 22,13:COLOR 7,0:PRINT"To CONTROL Menu            <PRESS> 3";:GOSUB 940:GOSUB 11000:GOSUB 1050
  249. 6350  NL!=1:ON VAL(IN$)GOTO 6330,6000,860
  250. 6360  REM =====  10 PITCH (PICA) PRINT =====
  251. 6370  LPRINTCHR$(27);CHR$(64);:LPRINTCHR$(27);CHR$(69);:LPRINTCHR$(27)+CHR$(66)+CHR$(1);:FORM!=1TONL!:FORN!=LB!TOLE!:LPRINTA$(N!):LPRINTB$(N!):LPRINTC$(N!):LPRINTD$(N!):LPRINTE$(N!):LPRINT" ":NEXT:NEXT:LPRINTCHR$(27)+"@";:GOSUB780
  252. 6380  GOSUB 820:LOCATE 20,13:COLOR 7,0:PRINT"To REPRINT this label/s    <PRESS> 1";:LOCATE 21,13:COLOR 7,0:PRINT"To print DIFFERENT label/s <PRESS> 2";:LOCATE 22,13:COLOR 7,0:PRINT"To CONTROL Menu            <PRESS> 3";:GOSUB 940:GOSUB 11000:GOSUB 1050
  253. 6390  NL!=1:ON VAL(IN$)GOTO 6370,6000,860
  254. 6400  REM =====  ALL LINES CONDENSED =====
  255. 6410  LPRINTCHR$(27);CHR$(64);:FORM!=1TONL!:FORN!=LB!TOLE!:LPRINTCHR$(15);A$(N!):LPRINTB$(N!):LPRINTC$(N!):LPRINTD$(N!):LPRINTE$(N!):LPRINTCHR$(27)+"@":NEXT:NEXT:LPRINTCHR$(27)+"@";:GOSUB780:GOSUB820:LOCATE20,13:COLOR7,0
  256. 6420  PRINT"To REPRINT this label/s    <PRESS> 1";:LOCATE 21,13:COLOR 7,0:PRINT"To print DIFFERENT label/s <PRESS> 2";:LOCATE 22,13:COLOR 7,0:PRINT"To CONTROL Menu            <PRESS> 3";:GOSUB 940:GOSUB 11000:GOSUB 1050
  257. 6430  NL!=1:ON VAL(IN$)GOTO 6410,6000,860
  258. 7000  REM =====  PRINT OUT FIRST LINE OF EACH RECORD  =====
  259. 7010  LPRINTTAB(30)"FIRST LINES OF ";FILESPEC$:LPRINT:LPRINT:PN!=0:PN!=5:CLS:PRINT:PRINTTAB(25)"FIRST LINES OF ";FILESPEC$:PRINT:PRINT:FORI!=1TOP!:PRINTTAB(10);I!;A$(I!):LPRINTTAB(10);I!;A$(I!):PN!=PN!+1
  260. 7020  IFPN!=55THENLPRINTCHR$(140):LPRINTSTRING$(10,5):PN!=5
  261. 7030  NEXT:GOSUB11000:END
  262. 7040  REM =====  FINAL SCREEN DISPLAY =====
  263. 7050  GOSUB 780:GOSUB 840:GOSUB 11000:LOCATE 8,23:COLOR 7,0:PRINT"Print first LINE of records   <PRESS> 1";:LOCATE 9,33:PRINT"<PAPER IN PRINTER>";:LOCATE 11,23:PRINT"Return to CONTROL Menu        <PRESS> 2";
  264. 7060  LOCATE 13,23:PRINT"Thanks!  Bye!       To QUIT - <PRESS> 3";
  265. 7070  GOSUB 1060:ON VAL(IN$)GOTO 7000,860,7100
  266. 7100  CLS:END
  267. 9000  REM =====  ERROR TRAP ROUTINE =====
  268. 9010  GOSUB 920:KEY ON:KEY OFF:LOCATE 25,28,0:COLOR 7,0:PRINT" ERROR ";:COLOR 7,0:PRINT" #";ERR;" IN LINE #";ERL;:FOR T!=1 TO 1000:NEXT:IF ERR=53 THEN LOCATE 20,10:PRINT SPC(30),ELSE 9030
  269. 9020  LOCATE 20,10:PRINT"File not found   ";:PRINT" ** Load CORRECT Disk";
  270. 9030  IFERR=54THENLOCATE20,10:PRINTSPC(30),ELSE9050
  271. 9040  LOCATE 20,10:PRINT"Bad file mode    ";:PRINT" ** Correct File Mode
  272. 9050  IFERR=55THENLOCATE20,10:PRINTSPC(30),ELSE9070
  273. 9060  LOCATE 20,10:PRINT"File already OPEN ";:PRINT" ** CLOSE and REOPEN";
  274. 9070  IFERR=61THENLOCATE20,10:PRINTSPC(30),ELSE9090
  275. 9080  LOCATE 20,10:PRINT"Disk FULL         ";:PRINT" ** Install New Disk";
  276. 9090  IFERR=70THENLOCATE20,10:PRINTSPC(30),ELSE9110
  277. 9100  LOCATE 20,10:PRINT"Disk WRITE PROTECT  ";:PRINT" ** Remove W/P Tab";
  278. 9110  IFERR=71THENLOCATE20,10:PRINTSPC(30),ELSE9130
  279. 9120  LOCATE 20,10:PRINT"Disk NOT READY    ";:PRINT" ** CLOSE Drive Door";
  280. 9130  IFERR=24THENLOCATE20,10:PRINTSPC(30),ELSE9150
  281. 9140  LOCATE 20,10:PRINT"Printer OFF-LINE ";:PRINT"  ** Set ON-LINE Mode";
  282. 9150  IFERR=25THENLOCATE20,10:PRINTSPC(30),ELSE9170
  283. 9160  LOCATE 20,10:PRINT"Printer not ON    ";:PRINT" ** Check Printer ON";
  284. 9170  IFERR=27THENLOCATE20,10:PRINTSPC(30),ELSE9200
  285. 9180  LOCATE 20,10:PRINT"OUT OF PAPER!     ";:PRINT" ** Check Paper Path";
  286. 9190  LOCATE22,20:GOSUB910:GOSUB920:GOSUB380:RETURN
  287. 9200  GOSUB 9190:LOCATE 22,10,0:PRINT"Correct SYSTEM ERROR - <PRESS> ENTER";:LOCATE 22,10,0:GOSUB 1330:KEY ON:KEY OFF:COLOR 7,0:RESUME 860
  288. 10000  REM =====  ADD TO LOADED FILE =====
  289. 10010  GOSUB 780:GOSUB 840:GOSUB 380:GOSUB 5160:GOSUB 5180:NP!=0:NP!=P!:P!=200:GOSUB 920:COLOR 7,0:LOCATE 21,30:PRINT"MAKE DATA ENTRIES ";:LOCATE 17,26:PRINT"Do not use QUOTATION MARKS when entering data!";:COLOR 7,0:IF NP!=0 THEN NP!=1:COLOR 6,0
  290. 10020  FOR I!=NP!TO P!:GOSUB 5180:COLOR 7,0:GOSUB 910:COLOR 7,0:LOCATE 21,52,0:PRINT"RECORD #: ";:LOCATE 21,60,0:PRINT I!;:LOCATE 4,30,1:FINLEN=41:GOSUB 2000:A$(I!)=FIN$:LOCATE 4,30,0:PRINT A$(I!):IF(A$(I!)="END"OR A$(I!)="end")THEN P!=I!
  291. 10030  IF(A$(I!)="END"ORA$(I!)="end")THEN2600
  292. 10040  LOCATE6,30,1:FINLEN=41:GOSUB2000:B$(I!)=FIN$:LOCATE6,30,0:PRINTB$(I!):LOCATE8,30,1:FINLEN=41:GOSUB2000:C$(I!)=FIN$:LOCATE8,30,0:PRINTC$(I!):LOCATE10,30,1:FINLEN=41:GOSUB2000:D$(I!)=FIN$:LOCATE10,30,0:PRINTD$(I!):LOCATE12,30,1
  293. 10050  FINLEN=41:GOSUB2000:E$(I!)=FIN$:LOCATE12,30,0:PRINTE$(I!):LOCATE14,30,1:FINLEN=41:GOSUB2000:F$(I!)=FIN$:LOCATE14,30,0:PRINTF$(I!)
  294. 10060  GOSUB 820:GOSUB 920:LOCATE 21,20:COLOR 7,0:PRINT"Is this correct <Y/N> ";:COLOR 7,0:GOSUB 1290:IF YN=1 THEN 10090
  295. 10070  IFYN=2THEN10080
  296. 10080  GOSUB 820:GOSUB 910:GOSUB 920:LOCATE 21,20:COLOR 7,0:PRINT"Re-enter what LINE? ";:COLOR 7,0:LOCATE 21,55:PRINT" Line # ";:GOSUB 1170:LOCATE 21,64:PRINT VAL(IN$);:ON VAL(IN$)GOTO 10130,10140,10150,10160,10170,10180
  297. 10090  GOSUB 820:GOSUB 920:LOCATE 21,18:COLOR 7,0:PRINT"ENTER ";:COLOR 7:PRINT CHR$(34)"END"CHR$(34);:COLOR 7:PRINT" To CLOSE Entries ";:NEXT:NEXT                                                                                               RUN
  298. 10120  REM =====  ADDED FILES -  INDIVIDUAL LINE CORRECTION ROUTINE  =====
  299. 10130  COLOR7,0:LOCATE4,28:PRINT"  ";STRING$(41,254):GOTO10190
  300. 10140  COLOR7,0:LOCATE6,28:PRINT"  ";STRING$(41,254):GOTO10220
  301. 10150  COLOR7,0:LOCATE8,28:PRINT"  ";STRING$(41,254):GOTO10230
  302. 10160  COLOR7,0:LOCATE10,28:PRINT"  ";STRING$(41,254):GOTO10240
  303. 10170  COLOR7,0:LOCATE12,28:PRINT"  ";STRING$(41,254):GOTO10250
  304. 10180  COLOR7,0:LOCATE14,28:PRINT"  ";STRING$(41,254):GOTO10260
  305. 10190  LOCATE 4,30,1:COLOR 7,0:FINLEN=41:GOSUB 2000:A$(I!)=FIN$:LOCATE 4,30,0:PRINT A$(I!):COLOR 7,0:GOTO 10060
  306. 10200  IF(A$(I!)="END"ORA$(I!)="end")THENP!=I!
  307. 10210  IF(A$(I!)="END"ORA$(I!)="end")THEN2600
  308. 10220  LOCATE 6,30,1:COLOR 7,0:FINLEN=41:GOSUB 2000:B$(I!)=FIN$:LOCATE 6,30,0:PRINT B$(I!):COLOR 7,0:GOTO 10060
  309. 10230  LOCATE 8,30,1:COLOR 7,0:FINLEN=41:GOSUB 2000:C$(I!)=FIN$:LOCATE 8,30,0:PRINT C$(I!):COLOR 7,0:GOTO 10060
  310. 10240  LOCATE 10,30,1:COLOR 7,0:FINLEN=41:GOSUB 2000:D$(I!)=FIN$:LOCATE 10,30,0:PRINT D$(I!):COLOR 7,0:GOTO 10060
  311. 10250  LOCATE 12,30,1:COLOR 7,0:FINLEN=41:GOSUB 2000:E$(I!)=FIN$:LOCATE 12,30,0:PRINT E$(I!):COLOR 7,0:GOTO 10060
  312. 10260  LOCATE 14,30,1:COLOR 7,0:FINLEN=41:GOSUB 2000:F$(I!)=FIN$:LOCATE 14,30,0:PRINT F$(I!):COLOR 7,0:GOTO 10060
  313. 10270  CLS:END
  314. 11000  REM =====  ELAPSED TIME PRINTOUT SUBROUTINE =====
  315. 11010  N$=TIME$:DEF FNH(H$)=VAL(LEFT$(H$,2)):DEF FNM(M$)=VAL(MID$(M$,4,2)):DEF FNS(S$)=VAL(RIGHT$(S$,2)):TMH!=(FNH(N$))-FNH(BB$):TMM!=(FNM(N$)-FNM(BB$)):TMS!=(FNS(N$)-FNS(BB$)):KEY ON:KEY OFF:LOCATE 25,3:PRINT"Start Time ";BB$;:LOCATE 25,30
  316. 11020  PRINT"End Time ";N$;:LOCATE 25,55:PRINT"Elapsed Time ";TMH!;":";ABS(TMM!);":";ABS(TMS!);:RETURN
  317. 11030  END
  318. 11040  GOSUB 780:LOCATE 10,30,0:PRINT"Are Records in the File?";:GOTO 860
  319. 15000  REM =====  DISK DIRECTORY REVIEW ROUTINE =====
  320. 15100  GOSUB 810:GOSUB 840:GOSUB 380:GOSUB 910:LOCATE 21,20,0:PRINT"What Drive (A,B,C,D)";:KEY OFF:GOSUB 940:GOSUB 1370:LOCATE 21,65,0:PRINT IN$;:ON PD GOTO 15200,15300,15400,15500
  321. 15200  LOCATE 3,1:FILES"A:*.*":COLOR 0,7:LOCATE 2,32:PRINT" Drive A: ":COLOR 7,0:GOTO 15600
  322. 15300  LOCATE 3,1:FILES"B:*.*":COLOR 0,7:LOCATE 2,32:PRINT" Drive B: ":COLOR 7,0:GOTO 15600
  323. 15400  LOCATE 3,1:FILES"C:*.*":COLOR 0,7:LOCATE 2,32:PRINT" Drive C: ":COLOR 7,0:GOTO 15600
  324. 15500  LOCATE 3,1:FILES"D:*.*":COLOR 0,7:LOCATE 2,32:PRINT" Drive D: ":COLOR 7,0
  325. 15600  GOSUB 840:COLOR 7,0:LOCATE 20,24:PRINT"Another Directory?      <PRESS 1>";:LOCATE 22,24:COLOR 7,0:PRINT"Return to CONTROL Menu? <PRESS 2>";:COLOR 7,0
  326. 15630  GOSUB 1010:ON VAL(IN$)GOTO 15680,15700
  327. 15680  GOTO 15000
  328. 15700  GOSUB 810:GOTO 860
  329. 16000  REM =====  CONTROL MENU DISPLAY ROUTINE =====
  330. 16010  GOSUB 840:GOSUB 850:LOCATE 20,9,0:PRINT M1ST$:LOCATE 21,9:PRINT M2ND$:LOCATE 22,9,0:PRINT M3RD$;:LOCATE 18,25:PRINT"  Select and <PRESS> a Letter  ";:LOCATE 19,27:PRINT STRING$(27,"~");
  331. 16020  IN$=INKEY$:IFIN$=""THEN16020
  332. 16100  IF(IN$="A"ORIN$="a")THENMS=1:GOSUB850:RETURN
  333. 16110  IF(IN$="C"ORIN$="c")THENMS=2:GOSUB850:RETURN
  334. 16120  IF(IN$="D"ORIN$="d")THENMS=3:GOSUB850:RETURN
  335. 16140  IF(IN$="E"ORIN$="e")THENMS=4:GOSUB850:RETURN
  336. 16160  IF(IN$="L"ORIN$="l")THENMS=5:GOSUB850:RETURN
  337. 16180  IF(IN$="P"ORIN$="p")THENMS=6:GOSUB850:RETURN
  338. 16200  IF(IN$="Q"ORIN$="q")THENMS=7:GOSUB850:RETURN
  339. 16220  IF(IN$="R"ORIN$="r")THENMS=8:GOSUB850:RETURN
  340. 16240  IF(IN$="S"ORIN$="s")THENMS=9:GOSUB850:RETURN
  341. 16260  SOUND100,4:GOTO16020
  342. 16270  END
  343. 65000  REM =====  FINAL PROGRAM SAVE ROUTINE  =====
  344. 65100  SAVE"B:LABELPRO.BAS
  345.